home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / Killblock.omed < prev    next >
Text File  |  1996-06-09  |  773b  |  34 lines
  1. /* Kill block */
  2. 'wi_request "Kill block?" "Full block|Only following notes|Cancel" var answer'
  3. select 
  4. when answer=2 then do
  5.     op_update off
  6.     ed_getcurrtrack var currtrack
  7.     ed_getnumtracks var numtracks
  8.     ed_goto line currline track 0
  9.         do until numtracks=0
  10.             'ed_killnotes currtrack'
  11.             ed_gototrack nextnote
  12.             numtracks=numtracks-1
  13.         end
  14.     ed_goto track currtrack
  15.     op_update on
  16.     wi_showstring "Killed."
  17. end
  18. when answer=1 then do
  19.         op_update off
  20.         ed_getcurrline var currline
  21.         ed_getcurrtrack var currtrack
  22.         ed_getnumtracks var numtracks
  23.         ed_goto line 0 track 0
  24.             do until numtracks=0
  25.             'ed_killnotes currtrack'
  26.             ed_gototrack nextnote
  27.             numtracks=numtracks-1
  28.             end
  29.         ed_goto line currline track currtrack
  30.         op_update on
  31.         wi_showstring "Killed."
  32. end
  33. otherwise
  34. end